home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_B.d64 / time to right (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  728b  |  14 lines
  1. 1 print"[147]":p=49152:pokep+4129,0:pokep+4128,0
  2. 2 def fna(g)=int(g/10)*16+(g-int(g/10)*10):poke792,193
  3. 3 forn=0to91:readd$:q=asc(left$(d$,1))-48:w=asc(right$(d$,1))-48
  4. 4 pokep+n,(q+(q>9)*7)*16+(w+(w>9)*7):next
  5. 5 u=p+48:h=int(u/256):l=u-h*256:j=int(p/256):i=p-j*256
  6. 6 pokep+8,l:pokep+9,h:pokep+16,l:pokep+17,h:pokep+24,l:pokep+25,h
  7. 7 pokep+81,i:pokep+86,h:pokep+7182,peek(p+7182)or128:sysp+79
  8. 8 input"hours";z:pokep+7179,fna(z):input"minutes";x:pokep+7178,fna(x)
  9. 9 input"seconds";c:pokep+7177,fna(c):pokep+7176,0:print"[147]":new
  10. 10 dataa2,00,ad,0b,dc,29,7f,20,00,00,a2,03,ad,0a,dc,20,00,00,a2,06,ad,09,dc
  11. 11 data20,00,00,ad,08,dc,a9,ba,8d,22,04,8d,25,04,a9,07,8d,22,d8,8d,25,d8
  12. 12 data4c,31,ea,48,29,f0,4a,4a,4a,4a,18,69,b0,9d,20,04,68,29,0f,18,69,b0,9d
  13. 13 data21,04,a9,07,9d,20,d8,9d,21,d8,60,78,a9,00,8d,14,03,a9,00,8d,15,03,58,60
  14.